﻿Public Class fORMULARIO_Restaurante

    Private Sub frmPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        picImagen.Image = System.Drawing.Bitmap.FromFile("J0148798.jpg") 'MUESTRA LA IMAGEN AL INICIAR LA MUESTRA DE ESTE FORMULARIO(RESTAURANTE)
    End Sub
    Private Sub btncarta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncarta.Click
        If instancia1.IsDisposed = True Then ' PERMITE VERIFICAR SI LA INSTANCIA1 ESTA EN DISPOSICION
            instancia1 = New frmPlatillos 'RETORNA EL INSTANCIAMIENTO DEL FRMPLATILLOS

        End If
        instancia1.Show() 'MUESTRA LA INSTANCIA

    End Sub

    Private Sub btncarta_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btncarta.MouseEnter
        picImagen.Image = System.Drawing.Bitmap.FromFile("PH02845G.gif") 'MUESTRA LA IMAGEN AL PRESIONAR CON EL MOUSE ENTER DENTRO DEL BOTON CARTA 
    End Sub

    Private Sub btnreservacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreservacion.Click
        If instancia3.IsDisposed = True Then ' PERMITE VERIFICAR SI LA INSTANCIA3 ESTA EN DISPOSICION
            instancia3 = New frmreservacion 'RETORNA EL INSTANCIAMIENTO DEL FRMRESERVACION
        End If
        instancia3.Show() 'MUESTRA LA INSTANCIA
    End Sub

    Private Sub btnreservacion_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnreservacion.MouseEnter
        picImagen.Image = System.Drawing.Bitmap.FromFile("J0101861.bmp")  'MUESTRA LA IMAGEN AL PRESIONAR CON EL MOUSE ENTER DENTRO DEL BOTON RESERVACION
    End Sub

    Private Sub btnpedido_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpedido.Click
        If instancia2.IsDisposed = True Then ' PERMITE VERIFICAR SI LA INSTANCIA2 ESTA EN DISPOSICION
            instancia2 = New frmpedido 'RETORNA EL INSTANCIAMIENTO DEL FRMPEDIDO

        End If
        instancia2.Show() 'MUESTRA LA INSTANCIA
    End Sub

    Private Sub btnpedido_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnpedido.MouseEnter
        picImagen.Image = System.Drawing.Bitmap.FromFile("AG00021_.gif") 'MUESTRA LA IMAGEN AL PRESIONAR CON EL MOUSE ENTER DENTRO DEL BOTON PEDIDO
    End Sub

    Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click
        End 'PERMITE SAQLIR DEL PROYECTO
    End Sub

    Private Sub btnsalir_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsalir.MouseEnter
        picImagen.Image = System.Drawing.Bitmap.FromFile("AG00092_.gif") 'MUESTRA LA IMAGEN AL PRESIONAR CON EL MOUSE ENTER DENTRO DEL BOTON SALIR

    End Sub
End Class

